-- card: 5923 from stack: in.1 ееее
-- bmap block id: 0
-- flags: 4000
-- background id: 2275
-- name: Archive


-- part 1 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=52 top=66 right=265 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Archive


-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=138 top=279 right=327 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 26318 / 26318
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  put empty into card field "Archive"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=221 top=279 right=327 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 1517 / 1517
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Export
----- HyperTalk script -----
on mouseUp
  put NewFileName( "Save HyperJots In File:", "HyperJots" && the date ) into SaveFileName

  if SaveFileName is empty then
    play boing
    exit mouseUp
  end if

  open file SaveFileName
  write card field "Archive" to file SaveFileName
  close file SaveFileName
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=55 top=278 right=327 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 1016 / 1016
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----
on mouseUp
  go to card id 15169
end mouseUp




-- part 5 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=312 top=269 right=337 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 768
-- line height: 12
-- part name: 


-- part contents for card part 5
----- text -----
Export made possible by  "NewFileName" XFCN written by Andrew Gilmartin of Brown University